CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swaga_c.zip/CURSOR.SWG/0013_Spinning Cursor.pas

Pascal/Delphi Source File | 1993-08-27 | 518b | 34 lines

{
SEAN PALMER

This is an example for the cursor I talked about to someone on here...
}

program spinCursor;

uses
  crt;

var
  cursorState : byte;  {0..3}
  i           : integer;

const
  cursorData : array [0..3] of char = (#30, #17, #31, #16);

procedure updateCursor;
begin
  cursorState := succ(cursorState) and 3;
  write(cursorData[cursorState], ^H);
end;

begin
  for i := 1 to 100 do
  begin
    gotoxy(1,1);
    updateCursor;
    gotoxy(1,41);
    delay(100);
  end;
end.